PC World Komputer 2003 November/PCWK1103B.iso/DesignCAD 3D Max PLUS trial 30/DATA1.CAB/Example_Files/Sample_Macros/600_6_Master.d3m

Text File | 2003-09-29 | 13.3 KB | 687 lines

' This is the sixth macro in the 600 series, which draws the small
' area summary boxes and the large material summary boxes.
'
' Clear all Variables
    Clear
' Get values from the ASCII text data file.
'
' Based on RType chosen by user above
        open "i", 1, "*\sample macros\600.txt"
' Assign #s found to Variables
    Input #1, AddLen
    Input #1, TH
    Input #1, PanNum2
    Input #1, PanNum
' Close File
    Close #1
'
' Get Current Layer
        CurLay = Sys(3)
Num = 0
Num2 = 0
Num$ = ""
' Loop for Adding all the Area Attributes up
    for a = 1 to Sys(9)
        getattr a, type, select, laynum, group, red, green, blue
    if laynum = 12 then
        if type = 15 then
            Entity a
            Temp$ = Sys$(1)
            Num = Sys$(1)
            Num2 = Num2 + Num
            Num$ = Num2
            ' Message Num$
            Area1 = Num2
        endif
    endif
    next a
Num = 0
Num2 = 0
Num$ = ""
' Loop for Adding all the Length Attributes up
    for a = 1 to Sys(9)
        getattr a, type, select, laynum, group, red, green, blue
    if laynum = 13 then
        if type = 15 then
            Entity a
            Temp$ = Sys$(1)
            Num = Sys$(1)
            Num2 = Num2 + Num
            Num$ = Num2
            ' Message Num$
            Len1 = Num2
        endif
    endif
    next a
'Print Area1
'AnyKey
'Print Len1
'AnyKey
            ' Create the Area Info Box
            ' Convert to Strings for use in Text Block
                Precision 0
                Area2$ = Area1
                Len2$ = Len1
            ' Strings for Text Labels
                Area$ = "Sm"
                Len$ = "Lm"
                Precision 2
            ' Select Object when Created is on
                Sys(242) = 1
            '
            ' Get Current Drawing Color
                ccRed = Sys(300)
                ccGreen = Sys(301)
                ccBlue = Sys(302)
            ' Silent Mode Off
                Sys(36) = 1
            ' Create New File to draw Area box in
                >New
                {
                }
            ' Back to Layer 11
                Layer(11) = 14
                '
            ' Not sure if this is still needed . . .
                MinnY = Sys(187)
            ' Make Text Block of information
                >TextBlock
                {
                <size [TH]
                <Distance 0.5
                <TextBegin
                <Text [Area$]
                <Text  [Len$]
                <justification 2
                <pointxyz 0, [MinnY - 20], 0
                }
            ' Get Current Max X values to place labled behind the text values
                M = Sys(198)
                M = M + 1
    '        ' Reset Color
    '            Sys(300) = ccRed
    '            Sys(301) = ccGreen
    '            Sys(302) = ccBlue
        ' Set Color to Red
                Sys(300) = 255
                Sys(301) = 0
                Sys(302) = 0
                    '
            ' Select Object when Created is off
                Sys(242) = 0
            ' Make Text Block of information
                >TextBlock
                {
                <Style 0
                <Distance 0.5
                <TextBegin
                <Text [Area2$]
                <Text [Len2$]
                <justification 0
                <pointxyz [M], [MinnY - 20], 0
                }
            '
            ' Select Object when Created is off
                Sys(242) = 0
            '
            ' Select Entire Drawing
                >SelectAll
                {
                }
' Get Min and Max drawing information
        MinX = Sys(196) - 1
        MinY = Sys(197) - 1
        MaxX = Sys(198) + 1
        MaxY = Sys(199) + 1
    '
    ' Select Object when Created is off
        Sys(242) = 0
    '
    '        ' Reset Color
                Sys(300) = ccRed
                Sys(301) = ccGreen
                Sys(302) = ccBlue

' Set Current Line Width to Zero
    Sys(6) = 0
    '
    ' Draw Bounding Box
        >Box
        {
        <pointxyz [MinX,MinY],0
        <pointxyz [MaxX,MaxY],0
        }
    '
            ' Select Entire Drawing
                >SelectAll
                {
                }

            ' Scale down the Info Box to a much smaller size
                ' Based on Diff in line 5
                ' Move Info Box to resize it
            '        >Move
            '        {
            '        <Type 0
            '        <Pointxyz 0, 0, 0
            '        <Pointrel [Diff], 0, 0
            '        }
            '        '
            ' Copy Area Box back into main drawing
                >Copy
                {
                }
            '
            ' Close Temp Drawing
                >Close
                {
                <SaveChanges 0
                }
            ' Silent Mode Off
                Sys(36) = 0
            ' Refresh the Screen
                >Regenerate
                {
                }
            ' Back to Layer 11
                Layer(11) = 14
                '
            ' Paste the info box in again
                >Paste
                {
                <Type 0
                ' 0 = Changeable scale (based on distance between handles 1 and 2); 1 = Fixed scale (always paste at original size)
                <SelectOnly 0
                '
                ' 0 = select the pasted object; 1 = leave the pasted object unselected
                <pointxyz 0,0,0
                }
                '
            ' Select Layer 11
                >SelectLayer
                {
                <Layer 11
                }
            ' Get Min and Max of the current Selection
                MinX = Sys(196)
                MinY = Sys(197)
                MaxX = Sys(198)
                MaxY = Sys(199)
            ' Set Handle
                >SetHandle
                {
                <pointxyz [MinX,MinY],0
                <pointxyz [MaxX,MinY],0
                }
            ' Loop for Moving Box from Layer 11 to the current layer
                for a = 1 to Sys(9)
                    getattr a, type, select, laynum, group, red, green, blue

                    if laynum = 11 then laynum = 14
                        Putattr a, type, select, laynum, group, red, green, blue
                    next a
            ' Switch to and Name Layer 9
                Sys(3) = 14
                Sys$(93) = "6x6 Master Info Boxes"
                '
            ' Silent Mode Off
                Sys(36) = 0
                '
            ' Refresh the Drawing
                >Regenerate
                {
                }
            ' Move the Box
                >Move
                {
                <Type 0
                }
                '
            ' Refresh the Screen to see text in area box
                >Regenerate
                {
                }
                '
            ' Deselect the Box after it's been placed
                >PointSelect
                {
                <Type 0
                <pointxyz -100, -100, 100
                }
                '
            ' Return to previous Current Layer
                Sys(3) = CurLay
                '
' Section to draw Master Material Box on Layer 14
' Routine to Calculate values for Large Info Boxes
  Calc1:
      ' Calculate and display MTee
        Precision 2
        MTeeN = Area1 * 0.286
        MTeeC = MTeeN / 25
        MTeeN2 = ROUND(MTeeN)
        ' MTeeC2 = ROUND(MTeeC)
        MTemp = MTeeC + .5
        MTeeC2 = ROUND(MTemp)
        '
    ' Calculate and display 1.2CN
        CN12 = Area1 * 1.65
        CNC12 = CN12 / 75
        ' CN122 = CN12
        CN122 = ROUND(CN12)
        '  CNC122 = CNC12
        CTemp = CNC12 + .5
        CNC122 = ROUND(CTemp)
        '
    ' Calculate and display 1.6CN
        CN6 = Area1 * 1.61
        CN6C = CN6 / 75
          CN62 = ROUND(CN6)
        ' CN62 = ROUND(CN6)
         ' CN6C2 = CN6C
        C6Temp = CN6C + .5
        CN6C2 = ROUND(C6Temp)
        '
    ' Calculate and display ST Fix
        STFix = Area1 * 0.765
        STFixC = STFix / 100
        STFixD = STFixC + .5
        'STFixC = ROUND(STFixD)
                STFixC2 = STFixC
        STFix2 = ROUND(STFix)
    ' Calculate and display Rods T
        RodsT = Area1 * 0.765
        RodsTC = RodsT / 100
        RodsTD = RodsTC + .5
        'RodsTC = ROUND(RodsTD)
        RodsTC2 = RodsTC
        RodsT2 = RodsT
    ' Calculate and display Rods B
        RodsB = Area1 * 0.765
        RodsBC = RodsB / 100
        RodsBD = RodsBC + .5
        'RodsBC = ROUND(RodsBD)
        ' RodsBC2 = RodsBC
        RodsB2 = RodsB
    ' Calculate and display Channel
    ' Apply Channel Adjustment from Earlier
        Chan = Chan + AddLen
        Chan = Len1 / 3
        'Chan2 = ROUND(Chan)
        Chan2C = Chan / 24
        'ChTemp = Chan2C + .5
        'Chan2C = ROUND(ChTemp)
    ' Resolve Panel Choice for the user
        Panel = .36
    ' Calculate and display Panels
        Ar = Area1 * 0.065
        Pan1 = Area1 + Ar
        Pan2 = Pan1 / Panel
        Pan3 = Pan2
        Precision 2
    ' Apply Panel Reduction
        Pan3 = Pan3 - PanNum2
        Precision 2
        PTemp = Pan3 + .05
'        Pan3 = ROUND(PTemp)
        '
' Routine to make smaller info box if area is less than or equal to 46 sm
  Small:
' Create New File
    >New
    {
    }
    ' Silent Mode On
        Sys(36) = 1
    '
    ' Make Layer 11 the current layer
        Layer(11) = 14
    '
    ' Create String Variables for Text Block
    ' Variables in the No. Column need to be integers only
        Precision 0
        MTeeN2$ = MTeeN2
        CNC122$ = CN122
        CN62$ = CN62
        STFix2$ = STFixC
        RodsT2$ = RodsTC
        RodsB2$ = RodsBC
        Chan2$ = Chan
    ' Variables in the CTS column need one place precision
        Precision 1
        MTeeC2$ = MTeeC
        CN122$ = CNC12
        CN6C2$ = CN6C
        STFixC2$ = STFixC
        RodsTC2$ = RodsTC
        RodsB2$ = RodsBC
        Chan2C$ = Chan2C
        Pan3$ = Pan3
    ' Prompt user for text height
    '    Sys$(41) = "Text Height . . ."
    '    Input "Enter the Text Height for the Info Box . . . (Enter = 1)", TH
    ' Check for Exit Condition on Input box
    '    if Sys(999) = 1 then
    '        Message "Program Stopped by User."
    '        End
    '    endif
' Check for valid entries
    'if TH = 0 then TH = 1
' Rem this back in if text sizes under 1 become a problem
    ' if TH < 1 then TH = 1
' Half Text height
    HTH = TH / 2
' Set Spacing for all text blocks at 1, DO NOT CHANGE THIS !!
    SP = 1
' Get Old Text Height
    OLDTH = Sys(12)
' Set new Text height
    Sys(12) = TH
    Six = 1
    if Six = 1 then
    ' Text Block with 0.6
        >TextBlock
        {
        <Style 0
        <Distance [SP]
        <TextBegin
        <Text "   "
        <Text " T  "
        <Text "1.2 "
        <Text "0.6 "
        <Text "Fix "
        <Text "T R "
        <Text "B R "
        <Text "Ch "
        <justification 1
        <pointxyz 0, 0, 0
        }
    else
    ' Text Block without 0.6
        >TextBlock
        {
        <Distance [SP]
        <TextBegin
        <Text "   "
        <Text " T  "
        <Text "1.2 "
        <Text "    "
        <Text "Fix "
        <Text "T R "
        <Text "B R "
        <Text "Ch "
        <justification 1
        <pointxyz 0, 0, 0
        }
    end if
    ' Set Color to Red
        Sys(300) = 255
        Sys(301) = 0
        Sys(302) = 0
    '
' Draw Number Column Values
    if Six = 1 then
    ' Text Block with 0.6
        >TextBlock
        {
        <Distance [SP]
        <TextBegin
        <Text "   "
        <Text [MTeeC2$]
        <Text [CN122$]
        <Text [CN6C2$]
        <Text [STFixC2$]
        <Text [RodsTC2$]
        <Text [RodsB2$]
        <Text [Chan2C$]
    '    <Text [MTeeN2$]
    '    <Text [CNC122$]
    '    <Text [CN62$]
    '    <Text [STFix2$]
    '    <Text [RodsT2$]
    '    <Text [RodsB2$]
    '    <Text [Chan2$]
        <justification 1
        <pointxyz [HTH * 8], 0, 0
        }
    else
    ' Text block without 0.6
        >TextBlock
        {
        <Distance [SP]
        <TextBegin
        <Text "   "
        <Text [MTeeN2$]
        <Text [CNC122$]
        <Text "   "
        <Text [STFix2$]
        <Text [RodsT2$]
        <Text [RodsB2$]
        <Text [Chan2$]
        <justification 1
        <pointxyz [HTH * 8], 0, 0
        }
    end if
    ' Set Color back to normal
        Sys(300) = ccRed
        Sys(301) = ccGreen
        Sys(302) = ccBlue
    '
    ' Text Title Block for Ref
        >TextBlock
        {
        <Distance [SP]
        <Style 0
        <TextBegin
        <Text "Total cts"
        <justification 1
        <pointxyz [HTH*3.5], 0, 0
        }
    ' Text Block for No
    '    >TextBlock
    '    {
    '    <Distance [SP]
    '    <TextBegin
    '    <Style 0
    '    <Text "Total cts"
    '    <justification 1
    '    <pointxyz [HTH * 8], 0, 0
    '    }
'
' Set Current Line Thickness to Zero
    Sys(6) = 0
    '
' Draw Title Block Box
    >Box
    {
    <Pointxyz [-TH*2], [TH/2], 0
    <Pointrel [TH*8], [-TH*2], 0
    }
'
' Draw First 3 value Box
    >Box
    {
    <Pointxyz [-TH*2], [-TH*1.5], 0
    <Pointrel [TH*8], [-TH*6], 0
    }
'
' Update Current Y Value
    CurY = TH*1.5
    CurY = CurY + TH*6
'
' Draw second 3 value Box
    >Box
    {
    <Pointxyz [-TH*2], [-CurY], 0
    <Pointrel [TH*8], [-TH*6], 0
    }
    '
' Update Current Y Value
    CurY = CurY + TH*6
'
' Draw Channel Box
    >Box
    {
    <Pointxyz [-TH*2], [-CurY], 0
    <Pointrel [TH*8], [-TH*2], 0
    }
'
' Update Current Y Value
    CurY = CurY + TH*2
'
' Draw Left Column Line
    >Line
    {
    <Pointxyz [TH*2], [TH-TH*2.5], 0
    <Pointxyz [TH*2], [-CurY], 0
    }
'
' Draw Right Column Line
    >Line
    {
    <Pointxyz [TH*6], [TH/2], 0
    <Pointxyz [TH*6], [-CurY], 0
    }
' Divide by however many the user says are in a carton
    PanNum = 10
    NewNum = Pan3 / PanNum
' Round the Result up since we need the next full carton
'    Precision 1
'    NewNum$ = NewNum
'    a$ = RIGHT$(NewNum, 1)
'    if a$ = "0" then goto Done3
'    Precision 0
'    NewNum2 = NewNum
'    NewNum = NewNum2 + 1
Done3:
    Precision 1
    NewNum3 = NewNum
    NewNum2$ = NewNum3,"cts"
    Precision 2
' Select Object when Created is on
    Sys(242) = 1
'
' Print Panels at info box bottom
    >Text2D
    {
    <justification 1
    <size [TH]
    <text "Panels"
    <angle 0
    <Pointxyz 0, [-CurY-TH*2], 0
    }
' Select Object when Created is off
    Sys(242) = 0
' Get Current Max X values to place labled behind the text values
    M = Sys(198)
    M = M + 1
    N = TH * 4 + M
' Set Color to Red
    Sys(300) = 255
    Sys(301) = 0
    Sys(302) = 0
' Add Carton # and cts
    >Text2D
    {
    <justification 0
    <size [TH]
    <text [NewNum2$]
    <angle 0
    <Pointxyz [M], [-CurY-TH*2], 0
    }
' Reset Color
    Sys(300) = ccRed
    Sys(301) = ccGreen
    Sys(302) = ccBlue
    '
'
' Select All
        >SelectAll
        {
        }
    ' Copy Area Box back into main drawing
                >Copy
                {
                }
            '
            ' Close Temp Drawing
                >Close
                {
                <SaveChanges 0
                }
            ' Refresh the Screen
                >Regenerate
                {
                }
            ' Back to Layer 11
                Layer(11) = 14
                '
            ' Paste the info box in again
                >Paste
                {
                <Type 0
                ' 0 = Changeable scale (based on distance between handles 1 and 2); 1 = Fixed scale (always paste at original size)
                <SelectOnly 0
                '
                ' 0 = select the pasted object; 1 = leave the pasted object unselected
                <pointxyz 0,0,0
                }
                '
            ' Select Layer 11
                >SelectLayer
                {
                <Layer 11
                }
            ' Get Min and Max of the current Selection
                MinX = Sys(196)
                MinY = Sys(197)
                MaxX = Sys(198)
                MaxY = Sys(199)
            ' Set Handle
                >SetHandle
                {
                <pointxyz [MinX,MinY],0
                <pointxyz [MaxX,MinY],0
                }
    ' Loop for Moving Box from Layer 11 to the LLay layer
        for a = 1 to Sys(9)
            getattr a, type, select, laynum, group, red, green, blue
            if laynum = 11 then laynum = 14
                Putattr a, type, select, laynum, group, red, green, blue
            next a
    LLay = 14
    if LLay = 14 then
    ' Make Layer 14 Current and name it
        Layer(14) = 14
        Sys$(93) = "6x6 Master Material Boxes"
    endif
    ' Silent Mode Off
        Sys(36) = 0
    '
    ' Refresh the Screen
        >Regenerate
        {
        }
    '
    ' Move the Box
        >Move
        {
        <Type 0
        }
    '
    ' Refresh the Screen
        >Regenerate
        {
        }
    '
    ' Deselect the Box after it's been placed
        >PointSelect
        {
        <Type 0
        <pointxyz -100, -100, 100
        }
    ' Return to previous Current Layer
        Sys(3) = CurLay
    '